R Notebook

1. Import data procedure

library(haven)
mining <- read_sas("http://www.principlesofeconometrics.com/sas/mining.sas7bdat", 
    NULL)

2. Wrangle the data

library(dplyr)

mining %>%
 filter(!(YEAR %in% c("1972", "1973", "1974", "1975", "1976", "1977", "1978", 
"1979"))) %>%
 filter(QTR %in% "4") %>%
 filter(PRO >= 100.4 & PRO <= 118.6) %>%
 filter(POW >= 
    67L & POW <= 105L)

3. ggplot2 data viz

p <- ggplot(mining) +
 aes(x = PRO, y = POW) +
 geom_point(size = 1L, colour = "#0c4c8a") +
 theme_minimal()

p

4. Plotly

library(plotly)

package ‘plotly’ was built under R version 4.0.3Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

ggplotly(p)